home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / Feelin021015 / Examples / 04.e < prev    next >
Encoding:
Text File  |  2002-10-28  |  776 b   |  39 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. PROC main()
  6.    DEF c,w
  7.  
  8.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  9.       c := ClientObject,
  10.          Child, w := WindowObject, FA_Window_Title,'Feelin : Sliders',
  11.             Child, VGroup,
  12.                Child, VGroup,
  13.                   Child, Prop(TRUE,10,2,0),
  14.                   Child, Prop(TRUE,10,2,0),
  15.                   Child, Prop(TRUE, 3,2,0),
  16.                   Child, Prop(TRUE, 3,2,0),
  17.                End,
  18.  
  19.                Child, HGroup,
  20.                   Child, Prop(FALSE,10,2,0),
  21.                   Child, Prop(FALSE,10,2,0),
  22.                End,
  23.             End,
  24.          End,
  25.       End
  26.  
  27.       IF c
  28.          F_DoA(w,FM_Notify,[FA_Window_CloseRequest,TRUE,FV_Notify_Client,2,FM_Client_ReturnID,FV_Client_Quit])
  29.          F_Set(w,FA_Window_Open,TRUE)
  30.  
  31.          F_DoA(c,FM_Client_Run,NIL)
  32.  
  33.          F_DisposeObj(c)
  34.       ENDIF
  35.  
  36.       CloseLibrary(feelinbase)
  37.    ENDIF
  38. ENDPROC
  39.